dat <- read.csv("_data/data.csv")
library(mapr)
col <- unique(dat[, c("name", "family")]) 
col$id <- as.numeric(as.factor(col$family))
col <- merge(col, data.frame(id = 1:6, col = rainbow(6))) 
#head(col)
map_leaflet(dat, lon = "decimalLongitude", lat = "decimalLatitude", 
            size = 6, color = col$col)